home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / game / misc / TWdb03.lha / CIM.scp next >
Text File  |  1993-09-25  |  4KB  |  186 lines
  1. /* TradeWars CIM data collection script */
  2. CLEAR
  3. PORTS = 1
  4. SECTORS = 2
  5. OTHER = 4
  6. bbsname$ = "Lion"       /* Insert your default BBS name here */
  7. CAPTUREPATH$ = "CAPTURE:" /* The path where you want your capture files to go */
  8. GOSUB HEADER
  9. GETSTRING "BBS Name", bbsname$
  10. GETSTRING "Capture path", CAPTUREPATH$
  11. GOSUB MENU
  12. CLS
  13. PRINT LOCAL "Getting capture files for "+bbsname$+" BBS"
  14. PRINT LOCAL
  15. WHEN ALL
  16. WHEN 1 "Pause" SEND "\r"
  17. WHEN 2 "Citadel command" SEND "l"
  18. WHEN 3 "TL" SEND "c"
  19. WHEN 4 "Quit" SEND "n"
  20. WHEN 5 "Cannon" SEND "\r"
  21. WHEN 6 "Planet command" SEND "l"
  22. SEND "q"
  23. WAIT 15 "Computer command"
  24. WHEN ALL
  25. WHEN 1 "Pause" SEND "\r"
  26. WHEN 2 "now ON" SEND "n"
  27. SEND "n"
  28. WAIT 10 "now OFF"
  29. WHEN ALL
  30. WHEN 1 "Pause" SEND "\r"
  31. IF ((choice AND PORTS) == PORTS) OR ((choice AND SECTORS) == SECTORS)
  32.   SEND "\xC8\xC9\xCA\xCB\xCC\xCD"
  33.   WAIT 5 ":"
  34.   SEND "\r"
  35.   WAIT 5 ":"
  36.   IF (choice AND SECTORS) == SECTORS
  37.     CAPTURE OPEN bbsname$+".sct"
  38.     SEND "i"
  39.     WAIT 180 ":"
  40.     CAPTURE CLOSE
  41.   ENDIF
  42.   IF (choice AND PORTS) == PORTS
  43.     CAPTURE OPEN bbsname$+".prt"
  44.     SEND "r"
  45.     WAIT 180 ":"
  46.     CAPTURE CLOSE
  47.     SEND "q"
  48.     WAIT 5 "Computer command"
  49.   ENDIF
  50. ENDIF
  51. SEND "q"
  52. WAIT 10 "TL"
  53. WHEN 2
  54. IF (choice AND OTHER) == OTHER
  55.   CAPTURE OPEN bbsname$+".ftr"
  56.   SEND "g"
  57.   WAIT 15 "TL"
  58.   CAPTURE CLOSE
  59.   CAPTURE OPEN bbsname$+".min"
  60.   SEND "k"
  61.   WAIT 15 "TL"
  62.   CAPTURE CLOSE
  63.   CAPTURE OPEN bbsname$+".sta"
  64.   SEND "v"
  65.   WAIT 15 "TL"
  66.   CAPTURE CLOSE
  67. ENDIF
  68. SEND "c"
  69. WAIT 5 "Computer command"
  70. SEND "n"
  71. WAIT 5 "Computer command"
  72. SEND "q"
  73. WHEN ALL
  74. WAIT 5 "TL"
  75. CLS
  76. PRINT LOCAL "Script completed!  Data saved."
  77. PAUSE 1
  78. CLS
  79. SEND "\r\r"
  80. END
  81. /* script end */
  82.  
  83. /* Print header */
  84. HEADER:
  85.   CLS
  86.   bpen = 14
  87.   tpen = 15
  88.   MOVE 1, 1
  89.   PRINT LOCAL " ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» "
  90.   PRINT LOCAL " º";SPACE$(22);
  91.   tpen = 9
  92.   PRINT LOCAL "* TWdb Data Collection Utility *";
  93.   tpen = 15
  94.   PRINT LOCAL SPACE$(22);"º "
  95.   PRINT LOCAL " º";SPACE$(31);
  96.   tpen = 1
  97.   PRINT LOCAL "by Jim McKinney";
  98.   tpen = 15
  99.   PRINT LOCAL SPACE$(30);"º "
  100.   PRINT LOCAL " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ "
  101.   bpen = 0
  102.   tpen = 1
  103. RETURN
  104.  
  105. /* Do the Menu */
  106. MENU:
  107.   MOVE 7, 1
  108.   PRINT LOCAL "     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
  109.   PRINT LOCAL "     º";SPACE$(68);"º"
  110.   PRINT LOCAL "     º       ";
  111.   tpen = 9
  112.   PRINT LOCAL "Capture TWdb files from ";
  113.   tpen = 13
  114.   PRINT LOCAL bbsname$;SPACE$(37-LEN(bbsname$));
  115.   tpen = 1
  116.   PRINT LOCAL "º"
  117.   PRINT LOCAL "     º";SPACE$(68);"º"
  118.   PRINT LOCAL "     º";SPACE$(68);"º"
  119.   PRINT LOCAL "     º       (";
  120.   tpen = 12
  121.   PRINT LOCAL "A";
  122.   tpen = 1
  123.   PRINT LOCAL ")ll files";SPACE$(50);"º"
  124.   PRINT LOCAL "     º       (";
  125.   tpen = 12
  126.   PRINT LOCAL "C";
  127.   tpen = 1
  128.   PRINT LOCAL ")IM port & sector files";SPACE$(36);"º"
  129.   PRINT LOCAL "     º       (";
  130.   tpen = 12
  131.   PRINT LOCAL "P";
  132.   tpen = 1
  133.   PRINT LOCAL ")orts, game status, fighters, & mines";SPACE$(22);"º"
  134.   PRINT LOCAL "     º       (";
  135.   tpen = 12
  136.   PRINT LOCAL "G";
  137.   tpen = 1
  138.   PRINT LOCAL ")ame status, fighters, & mines";SPACE$(29);"º"
  139.   PRINT LOCAL "     º       (";
  140.   tpen = 12
  141.   PRINT LOCAL "Q";
  142.   tpen = 1
  143.   PRINT LOCAL ")uit";SPACE$(55);"º"
  144.   PRINT LOCAL "     º";SPACE$(68);"º"
  145.   PRINT LOCAL "     º";SPACE$(68);"º"
  146.   PRINT LOCAL "     º";SPACE$(68);"º"
  147.   PRINT LOCAL "     º";SPACE$(68);"º"
  148.   PRINT LOCAL "     ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
  149. /* Menu prompt */
  150. MENU2:
  151.   MOVE 19, 10
  152.   tpen = 10
  153.   ASK LOCAL "Your choice?      \b\b\b\b\b", choice$
  154.   choice$ = UPPER$(choice$)
  155.   IF choice$ == "A"
  156.     choice = PORTS + SECTORS + OTHER
  157.   ELSE
  158.     IF choice$ == "C"
  159.       choice = PORTS + SECTORS
  160.     ELSE
  161.       IF choice$ == "P"
  162.         choice = PORTS + OTHER
  163.       ELSE
  164.         IF choice$ == "G"
  165.           choice = OTHER
  166.         ELSE
  167.           IF choice$ == "Q"
  168.             tpen = 1
  169.             bpen = 0
  170.             cls
  171.             END
  172.           ELSE
  173.             BEEP
  174.             MOVE 19, 10
  175.             tpen = 11
  176.             PRINT LOCAL "Invalid selection!";
  177.             tpen = 1
  178.             PAUSE 1
  179.             GOTO MENU2
  180.           ENDIF
  181.         ENDIF
  182.       ENDIF
  183.     ENDIF
  184.   ENDIF
  185. RETURN
  186.